answer "Open another stack?" with "Open..." or "Cancel"
if it is "Cancel" then exit mouseUp
doMenu "Open Stack..."
end mouseUp
-- part 10 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=298 top=267 right=320 bottom=362
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play all
----- HyperTalk script -----
on mouseUp
set hilite of button "Flourish 1" to TRUE
play "Flourish1"
wait until the sound is "done"
set hilite of button "Flourish 1" to FALSE
set hilite of button "Flourish 2" to TRUE
play "Flourish2"
wait until the sound is "done"
set hilite of button "Flourish 2" to FALSE
set hilite of button "Flourish 3" to TRUE
play "Flourish3"
wait until the sound is "done"
set hilite of button "Flourish 3" to FALSE
set hilite of button "Flourish 4" to TRUE
play "Flourish4"
wait until the sound is "done"
set hilite of button "Flourish 4" to FALSE
set hilite of button "Flourish 5" to TRUE
play "Flourish5"
wait until the sound is "done"
set hilite of button "Flourish 5" to FALSE
set hilite of button "Flourish 6" to TRUE
play "Flourish6"
wait until the sound is "done"
set hilite of button "Flourish 6" to FALSE
set hilite of button "Flourish 7" to TRUE
play "Flourish7"
wait until the sound is "done"
set hilite of button "Flourish 7" to FALSE
end mouseUp
-- part 11 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=362 top=267 right=320 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play all
----- HyperTalk script -----
on mouseUp
play "Boing"
show card field "About"
end mouseUp
-- part 12 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=66 top=52 right=237 bottom=436
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseUp
hide card field "About"
end mouseUp
-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=466 top=300 right=321 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
visual iris close to gray
visual iris open
pop card
end mouseUp
-- part contents for card part 12
----- text -----
This is a stack containing 7 'snd ' resources which you may move to your own stacks at will with ResEdit, Sound Manager, or Sound Mover. See Danny Goodman's book for information on playing sounds in HyperCard.
These sounds come to you free from David Rakowski, 60 Gorham Ave. #6, Brookline, MA 02146. If you use any of these sounds, send me a postcard. I would be glad to see any stacks you write using these sounds.... (click)